home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / S9301.ZIP;1 / RUBEL.ZIP / HP_DEV1.PRG < prev    next >
Encoding:
Text File  |  1992-12-10  |  1.5 KB  |  77 lines
  1. PROCEDURE hp_dev1
  2. PRIVATE m_key, mul_row, mul_col, mlr_row, mlr_col
  3.  
  4. ***  load the window coordinates from the help record
  5.  
  6. mul_row = ul_row
  7. mul_col = ul_col
  8. mlr_row = lr_row
  9. mlr_col = lr_col
  10.  
  11. DEFINE WINDOW hp_dev1 FROM 01,01 TO 14,24 DOUBLE
  12. ACTIVATE WINDOW hp_dev1
  13.  
  14. DO WHILE .t.
  15.   @ 00,03 SAY 'Help Development'
  16.   @ 02,03 SAY '1 - Edit screen'
  17.   @ 03,03 SAY '2 - Size Screen'
  18.   @ 04,03 SAY '3 - Move screen'
  19.   @ 05,03 SAY '4 - Show screen'
  20.   @ 06,03 SAY '6 - Delete screen'
  21.   @ 07,03 SAY '0 - Save screen'
  22.   @ 11,03 SAY 'Press F1 for Help'
  23.   @ 09,03 SAY 'Your choice...'
  24.  
  25.   m_key = inkey(0)
  26.  
  27.   DEACTIVATE WINDOW hp_dev1
  28.  
  29.   DO CASE
  30.  
  31.     CASE m_key = 49           &&  edit record
  32.       DO hp_edit
  33.  
  34.     CASE m_key = 50           &&  size window
  35.       DO hp_size
  36.  
  37.     CASE m_key = 51           &&  move window
  38.       DO hp_move
  39.  
  40.     CASE m_key = 52           &&  show screen
  41.       junk = memo_pop(mul_row,mul_col,;
  42.                       mlr_row,mlr_col,;
  43.                       'help_mess')
  44.  
  45.     CASE m_key = 56           &&  delete record
  46.  
  47.       IF yesno('Delete current help record?')
  48.         DELETE
  49.         PACK
  50.         EXIT
  51.       ENDIF
  52.  
  53.     CASE m_key = 48           &&  save the record
  54.  
  55. ***  replace window coordinates
  56.  
  57.       REPLACE ul_row WITH mul_row, ;
  58.               ul_col WITH mul_col, ;
  59.               lr_row WITH mlr_row, ;
  60.               lr_col WITH mlr_col
  61.       EXIT
  62.  
  63.     OTHERWISE
  64.       ?? chr(7)
  65.  
  66.   ENDCASE
  67.  
  68.   ACTIVATE WINDOW hp_dev1
  69.  
  70. ENDDO
  71.  
  72. RELEASE WINDOW hp_dev1
  73.  
  74. ******
  75.  
  76.  
  77.